home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / TASKLIST.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  4.1 KB  |  96 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '***************************************************************************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN                  DAILY PHONE CALL AND "DO-LIST" FORM                    OPEN
  5. 20  'OPEN                                                                         OPEN
  6. 22  'OPEN    The form generated by this program can be used to record daily or    OPEN
  7. 24  'OPEN other period phone calls and projects.  This type of form has been a    OPEN
  8. 26  'OPEN legal and acceptable evidential exhibit to the IRS and the courts if it OPEN
  9. 28  'OPEN can be shown that keeping track of these events on a regular, orderly   OPEN
  10. 30  'OPEN basis is a habit.  The form can be modified easily to increase or de-   OPEN
  11. 31  'OPEN crease the number of phone calls and/or projects by making an appropr-  OPEN
  12. 32  'OPEN iate change in the number of loops printed. The loop size entries are   OPEN
  13. 33  'OPEN in lines  230 and 330. By deleting lines 190 thru 280, the phone call   OPEN
  14. 34  'OPEN portion can be eliminated completely. Set print head on first line be-  OPEN
  15. 35  'OPEN low the perforation and make certain printer is ON LINE. Press <F2>.    OPEN
  16. 36  'OPEN                   (c) G I N A C O    1983              Ver 5.1/160/320  OPEN
  17. 38  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  18. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  19. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  20. 60  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
  21. 80  REM ===== INITIALIZE PRINTER CODES =====
  22. 90  GOSUB 5000
  23. 100  ON ERROR GOTO 6000
  24. 110  REM ===== PUT IN FORM HEADING =====
  25. 120  LPRINT CLEANUP$;
  26. 130  WIDTH "LPT1:",96
  27. 140  LPRINT DARK$;
  28. 150  LPRINT STRING$(4,10);
  29. 160  LPRINT EXPAND$; TAB( 17);START.ULINE$"DO  LIST  FORM"END.ULINE$
  30. 170  LPRINT STRING$(2,10);
  31. 180  LPRINT TAB( 3);EXPAND$"DATE:"START.ULINE$"_        _"END.ULINE$"          DAY"START.ULINE$"_        _"END.ULINE$
  32. 190  LPRINT
  33. 200  LPRINT EXPAND$; TAB( 16);START.ULINE$"PHONE CALLS";END.ULINE$
  34. 210  LPRINT
  35. 220  LPRINT TAB( 3);EXPAND$"   "START.ULINE$"NAME"END.ULINE$"        "START.ULINE$"NUMBER"END.ULINE$"       "START.ULINE$"RESULTS"END.ULINE$
  36. 230  LPRINT
  37. 240  FOR I! = 1 TO 4
  38. 250    LPRINT TAB( 2);START.ULINE$"<_                _>"END.ULINE$"     "START.ULINE$"(     )-               _"END.ULINE$"    "START.ULINE$"                       "END.ULINE$
  39. 260    LPRINT
  40. 270  NEXT
  41. 280  LPRINT
  42. 290  LPRINT
  43. 300  LPRINT EXPAND$; TAB( 14);START.ULINE$"P R O J E C T S"END.ULINE$
  44. 310  LPRINT
  45. 320  LPRINT EXPAND$; TAB( 5);START.ULINE$"IDENTIFICATION"END.ULINE$"          "START.ULINE$"COMPLETED"END.ULINE$
  46. 330  LPRINT
  47. 340  FOR I! = 1 TO 11
  48. 350    LPRINT TAB( 2);START.ULINE$"<_                                           _>"END.ULINE$"    "START.ULINE$"<_                     _>"END.ULINE$
  49. 360    LPRINT
  50. 370    LPRINT
  51. 380  NEXT
  52. 390  LPRINT
  53. 400  LPRINT EXPAND$; TAB( 2)"COMMENTS: "START.ULINE$"<_                       _>"
  54. 410  LOCATE 10,30:PRINT"THE FORM IS PRINTING"
  55. 420  LPRINT CHR$(12):END
  56. 5000  '========== PRINTER CONTROL SUBROUTINE ==========
  57. 5030  SMALL$ = CHR$(15)
  58. 5060   UNSMALL$ = CHR$(18)
  59. 5090    EXPAND.SMALL$ = CHR$(14) + CHR$(15)
  60. 5120     CANX.EXP.COMP$ = CHR$(18) + CHR$(20)
  61. 5150      EXPAND$ = CHR$(14)
  62. 5180       EXPAND.END$ = CHR$(20)
  63. 5210        DARK$ = CHR$(27) + CHR$(69)
  64. 5240         ITALIC$ = CHR$(27) + CHR$(52)
  65. 5270          ITALIC.EXP.CON$ = CHR$(14) + CHR$(15) + CHR$(27) + CHR$(52)
  66. 5300  ITALIC.EXP$ = CHR$(27) + CHR$(52) + CHR$(14)
  67. 5330   END.ITALIC$ = CHR$(27) + CHR$(53)
  68. 5360    START.ULINE$ = CHR$(27) + CHR$(45) + CHR$(1)
  69. 5390     END.ULINE$ = CHR$(27) + CHR$(45) + CHR$(0)
  70. 5420      PERM.EXPAN$ = CHR$(27) + CHR$(87) + CHR$(1)
  71. 5450       END.PERMEXP$ = CHR$(27) + CHR$(87) + CHR$(0)
  72. 5480  START.DSTRIKE$ = CHR$(27) + CHR$(71)
  73. 5510   END.DSTRIKE$ = CHR$(27) + CHR$(72)
  74. 5540    TINYLINE$ = CHR$(27) + CHR$(83) + CHR$(0)
  75. 5570     END.TINY$ = CHR$(27) + CHR$(84)
  76. 5600      ESC$ = CHR$(27)
  77. 5630       CLEANUP$ = CHR$(27) + CHR$(64)
  78. 5660        RETURN
  79. 6000  REM ********* PRINTER ERROR ROUTINE ***************
  80. 6030  IF ERR = 24 THEN 6120 ELSE 6060
  81. 6060  IF ERR = 25 THEN 6120 ELSE 6090
  82. 6090  ON ERROR GOTO 0
  83. 6120  KEY OFF
  84. 6150   BEEP
  85. 6180    BEEP
  86. 6210     LOCATE 25,1
  87. 6240      PRINT SPC( 79)
  88. 6270       LOCATE 25,20
  89. 6300        PRINT "CHECK PRINTER - PRESS ANY KEY TO CONTINUE"
  90. 6330  IF INKEY$ = "" THEN 6330
  91. 6360  KEY OFF
  92. 6390   RESUME
  93. 6420    END
  94. 65000  REM ==========  SAVE ROUTINE  ==========
  95. 65100  SAVE "B:TASKLIST.BAS"
  96.